home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / r-z / sbase4pro / trading / stkrbe.sbp < prev    next >
Text File  |  1995-07-10  |  2KB  |  71 lines
  1. SBP
  2.  ÿ½   STKRBE
  3.  ÿ½   Client Trading Balance Report
  4.  ÿ½   Last updated Jan 21, 90
  5.  
  6.  ÿ³ÿ_ÿwrerror
  7.  hd1$ÿ"Client Trading Balances at "ÿÿ(ÿQ,"mmm dd,yy")
  8.  hd12$ÿ"Ref: STKRBE"
  9.  
  10. m1: 
  11.  ÿÁUSD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  12.  ÿ}ÿÁ
  13.  ÿ{@52;"   =========  ==========  ==========="
  14.  ÿ{@1;"Totals for Client Trading Balance Report";@54;&6.2ÿlUSD Value.TRANS;@67;&11ÿlComm_Value.TRANS;@79;&6.2ÿlTotal_Due.TRANS
  15.  ÿ{@52;"   =========  ==========  ==========="
  16.  ÿ’ÿÁ
  17.  
  18.  ÿŸ
  19.  ÿ{@1;hd1$;@66;hd12$
  20.  ÿ{
  21.  ÿ{@1;"Client ref Name                   Location                       Telephone "
  22.  ÿ{@1;"Date      b/s Ref    Quantity  Curr units      Price  US$ Value  Commission    Total Due"
  23.  ÿ{@1;"--------- --- ------ --------  ----------  ---------  ---------  ----------  -----------"
  24.  ÿ’ÿŸ
  25.  
  26.  ÿžCustomer_Ref.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  27.  ÿ€ÿžCustomer_Ref.TRANS
  28.  ÿ{
  29.  ÿ{@1;&8Customer_Ref.TRANS;@10;&24Client.CLIENTS;@35;&30Location.CLIENTS;@66;&3Dialcode.COUNTRY;@70;&16Telephone.CLIENTS
  30.  ÿ’ÿž
  31.  
  32.  ÿ}ÿžCustomer_Ref.TRANS
  33.  ÿ{@54;" ---------  ----------  ------------"
  34.  ÿ{@1;"Totals for ";&15ÿž;@55;&12ÿlUSD Value.TRANS;&11ÿlComm_Value.TRANS;@80;&12ÿlTotal_Due.TRANS
  35.  ÿ{@55;"---------  ----------  ------------"
  36.  ÿ’ÿž
  37.  
  38.  ÿÉ@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
  39.  @32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
  40.  ÿÐCurrency.TRANSÿCurrency.CURRENCYÿ Customer_Ref.CLIENTSÿCustomer_Ref.TRANSÿ Name.COUNTRYÿCountry.CLIENTS
  41.  ÿµCustomer_Ref.TRANS,Transaction ref.TRANS
  42.  
  43. m2: 
  44.  ÿ¡p$ÿ"d"ÿp
  45. ÿÊÿËss14$
  46. ÿÏÿ¥ÿÿß
  47.  ÿ’ÿ¡
  48.  
  49. repeat: 
  50.  ÿÂms3$,"",135,a%
  51.  ÿ¡a%ÿ0ÿpÿwrexit
  52.  ÿ¡p$ÿ"p"ÿpÿ¹;
  53.  ÿwm1
  54.  
  55. rexit: 
  56.  ÿ„"menu"
  57.  
  58. rerror:ÿ½ On error
  59.  res%ÿ0
  60.  ÿ¡ÿ&ÿ11ÿp
  61. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  62.  ÿ^ÿ¡ÿ&ÿ27ÿp
  63. ÿÂms11$,ms12$,100,a%:res%ÿ2
  64.  ÿ^
  65. ÿÂÿ((ÿ&),"",113,a%:res%ÿ1
  66.  ÿ’ÿ¡
  67.  ÿ¡res%ÿ1ÿpÿyrepeat 
  68.  ÿ¡res%ÿ2ÿpÿyrexit
  69.  ÿ
  70.  
  71.